home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 1995 #3 & #4 / Amiga Plus CD - 1995 - No. 3 and 4.iso / startrek-helm-spot / star-trek-info-spot (.txt) < prev    next >
Helm Multimedia Book  |  1995-07-20  |  85KB  |  1,749 lines
  1. Star-Trek-Info-Spot
  2. Hartmut Schumacher
  3. 16-06-95
  4. $$VER: Star-Trek-Spot 2.00 (16-06-95)
  5. )on BookOpen
  6. begin
  7. set titlebar false
  8. DDDUUUfffwww
  9. rkbench
  10. Help...
  11. About...
  12. Quit...
  13. Paste
  14. Clear
  15. Select All
  16. Select Layer
  17. Cut Page
  18.     Copy Page
  19. Colors
  20. Load...
  21. Save...
  22. Restore Colors
  23. Default Colors
  24. Brush Colors
  25. Image Colors
  26. Last Color Font
  27. Cycle
  28. Grid...
  29. Stop Sound
  30. Show All
  31. Unlock All
  32.     Edit Form
  33. Share
  34.     Next Page
  35. Previous Page
  36. First Page
  37.     Last Page
  38. Backward
  39. Forward
  40.     Last Book
  41.     Browse...
  42. Autobrowse...
  43.     Bookshelf
  44. New Page
  45. Delete Page
  46. New Form
  47. Load Form...
  48. Save Form...
  49. Image
  50. Load...
  51. Save...
  52. Capture...
  53.     Clipboard
  54. Paste
  55. Spare
  56. Swap Frames
  57. Copy to Spare
  58. Merge in Front
  59. Merge in Back
  60. Delete Spare
  61. Frame
  62. Previous
  63. Delete
  64. Copy to All
  65. Color
  66. Remap
  67. Transparency
  68. Paper <-> Pen
  69. Paper ->  Pen
  70. Count
  71. Vertical
  72. Horizontal
  73. Info...
  74. Brush
  75. Load...
  76. Save...
  77. Restore
  78.     Clipboard
  79. Paste
  80. Color
  81. Remap
  82. Transparency
  83. Paper <-> Pen
  84. Paper ->  Pen
  85. Center
  86. Corner
  87.     Any Point
  88. Any Size
  89. Halve
  90. Double
  91. Halve Width
  92. Halve Height
  93. Double Width
  94. Double Height
  95. To PAL
  96. To NTSC
  97. Vertical
  98. Horizontal
  99. Shear
  100. Vertical
  101. Horizontal
  102. Rotate
  103.     Any Angle
  104. Paint
  105. Matte
  106. Color
  107. Replace
  108. Smear
  109. Dissolve
  110. Spare
  111. Cycle
  112. Cycle 2
  113. Gradient
  114. Gradient 2
  115. Smudge
  116. Chaos
  117. Count
  118. Custom
  119. Dither
  120. Edges
  121. Object
  122. Load...
  123. Save...
  124. Bring to Front
  125. Send to Back
  126. Bring Closer
  127. Send Farther
  128. Group
  129. Ungroup
  130. Duplicate...
  131. Align...
  132. Info...
  133. Actions...
  134.     Script...
  135. Load...
  136. Save...
  137. Plain
  138.     Underline
  139. Italic
  140. Shadow
  141. Font...
  142. Spacing...
  143.     Hypertext
  144. Actions...
  145.     Script...
  146. Tools
  147. Coordinates
  148.     Title Bar
  149. Palette
  150. Colors
  151. Patterns
  152. Paint Tools
  153. Paint Types
  154.     Histogram
  155.     Magnifier
  156. Messages
  157. Draw Tools
  158. Layers
  159. Pages
  160. Author
  161. Book...
  162. Form...
  163. Page...
  164. Display...
  165. Menus...
  166. Narrator...
  167. Hypertext...
  168. Resources...
  169.     Effect...
  170. Effect Area
  171. DDDUUUfffwww
  172. Antwort0.ASC
  173. Antwort1.ASC
  174. Antwort2.ASC
  175. Antwort3.ASC
  176. Antwort4.ASC
  177. Antwort5.ASC
  178. Antwort6.ASC
  179. Antwort7.ASC
  180. Antwort8.ASC
  181. AntwortA.ASC
  182. Bewerbung.ASC
  183. Explosion.8SVX
  184. Explosion.IFF
  185. Laser.8SVX
  186. Museum.ASC
  187. Schiff1.IFF
  188. Schiff2.IFF
  189. Treffer.8SVX
  190. Ueberschrift
  191. topaz.font
  192. helvetica.font
  193. times.fontGLOB
  194.     Hauptmen
  195.     Bewerbung
  196. Holodeck
  197. Museum
  198. Spock
  199. Uhura
  200. McCoy
  201. Picard
  202. Diagramm
  203. Bilder/Sterne.IFF
  204. Sounds/Explosion.8SVX
  205. -dh6:helm/Star-Trek-Dateien/Texte/Antwort0.ASC
  206. fonts:Book23
  207. &Helm:Star-Trek-Dateien/Bilder/Kirk.IFF
  208. *Helm:Star-Trek-Dateien/Texte/Bewerbung.ASC
  209. SyQuest14:Star-Trek-Info-Spot/
  210. 3Helm:Star-Trek-Dateien/Bilder/Klingonen-Schiff1.IFF
  211. +dh6:helm/Star-Trek-Dateien/Texte/Museum.ASC
  212. +dh6:Helm/AlteDateien/Star-Trek-Info-Spot-17
  213. DDDUUUfffwww
  214. DDDUUUfffwww
  215.     Hauptmen
  216. Hintergrund
  217. berschrift
  218. ~@BBesatzung
  219. @HHolodeck
  220. @wBewerbung
  221. @MMuseum
  222. @EEnde
  223. @iUFP-Logo
  224. Enterprise
  225. Bilder/Sterne.IFF
  226. on SelectUp
  227. begin
  228. stop all sound
  229. play sound "Sounds/Wait.8SVX"
  230. put "M
  231. chten Sie den 
  232. Star-Trek-Info-Spot
  233. \n" into Mitteilung
  234. put "tats
  235. chlich beenden?" after Mitteilung
  236. answer Mitteilung with "@NNein" or "~@JJa"
  237. if it = "Ja" then begin
  238. stop all sound
  239. play sound "Sounds/Affirmative.8SVX"
  240. wait 2
  241. stop all sound
  242. else begin
  243. stop all sound
  244. play sound "Sounds/Negative.8SVX"
  245. Sounds/Wait.8SVX
  246. chten Sie den 
  247. Star-Trek-Info-Spot
  248. chlich beenden?
  249. @NNein
  250. ~@JJa
  251. Sounds/Affirmative.8SVX
  252. Sounds/Negative.8SVX
  253. Bilder/UFP-Logo.IFF
  254. <on SelectUp
  255. begin
  256. stop all sound
  257. play sound "Sounds/Pfeifen.8SVX" channel 0 channel 1
  258. put "Star-Trek-Info-Spot 2.0\n\n" into Mitteilung
  259. put "Programm:\n
  260.  Hartmut Schumacher\n\n\n" after Mitteilung
  261. put "Star-Trek-Bilder, -Sounds und -Namen:\n
  262.  Paramount Pictures"after Mitteilung
  263. answer Mitteilung with "~@OOK"
  264. Sounds/Pfeifen.8SVX
  265. Star-Trek-Info-Spot 2.0
  266. Programm:
  267.  Hartmut Schumacher
  268. Star-Trek-Bilder, -Sounds und -Namen:
  269.  Paramount Pictures
  270. ~@OOK
  271. Bilder/Enterprise.IFF
  272. on SelectUp
  273. begin
  274. on PageOpen
  275. begin
  276. stop all sound
  277. if chipmemory > 430000 then
  278. play sound "Sounds/TOS-Thema.8SVX" channel 2 channel 3
  279. play sound "Sounds/TOS-Thema-kurz.8SVX" channel 2 channel 3
  280. Sounds/TOS-Thema.8SVX
  281. Sounds/TOS-Thema-kurz.8SVX
  282. Portrait
  283. chste Akte
  284. @HHauptmen
  285. @vvorige Akte
  286. @SStimmprobe
  287. Personalakte
  288. @DDiagramm
  289. Bilder/Kirk.IFF
  290. on SelectUp
  291. begin
  292. global VorigeAuswahl
  293. put Random 4 into Auswahl
  294. while VorigeAuswahl = Auswahl
  295. put Auswahl into VorigeAuswahl
  296. play sound "Sounds/Kirk" & Auswahl & ".8SVX"
  297. VorigeAuswahl
  298. Sounds/Kirk
  299. .8SVX
  300. Texte/Kirk.ASC
  301. Sounds/Beamen.8SVX
  302. (on PageClose
  303. begin
  304. stop all sound
  305. Spock
  306. Portrait
  307. chste Akte
  308. @HHauptmen
  309. @vvorige Akte
  310. @SStimmprobe
  311. Personalakte
  312. Bilder/Spock.IFF
  313. on SelectUp
  314. begin
  315. on SelectUp
  316. begin
  317. global VorigeAuswahl
  318. put Random 1 into Auswahl
  319. while VorigeAuswahl = Auswahl
  320. put Auswahl into VorigeAuswahl
  321. play sound "Sounds/Spock" & Auswahl & ".8SVX"
  322. VorigeAuswahl
  323. Sounds/Spock
  324. .8SVX
  325. Texte/Spock.ASC
  326. Sounds/Beamen.8SVX
  327. (on PageClose
  328. begin
  329. stop all sound
  330. Picard
  331. Portrait
  332. chste Akte
  333. @HHauptmen
  334. @vvorige Akte
  335. @SStimmprobe
  336. Personalakte
  337. Bilder/Picard.IFF
  338. on SelectUp
  339. begin
  340. global VorigeAuswahl
  341. put Random 7 into Auswahl
  342. while VorigeAuswahl = Auswahl
  343. put Auswahl into VorigeAuswahl
  344. play sound "Sounds/Picard" & Auswahl & ".8SVX"
  345. VorigeAuswahl
  346. Sounds/Picard
  347. .8SVX
  348. Texte/Picard.ASC
  349. Sounds/Beamen.8SVX
  350. (on PageClose
  351. begin
  352. stop all sound
  353. Erfolgsstatistik:
  354. "James T. Kirks Ann
  355. herungsversuche
  356. an weibliche Au
  357. erirdische
  358. (in Prozent)
  359. erfolgreich
  360. freundlich abgewiesen
  361. se abgewiesen
  362. Schiff geriet in Gefahr
  363. Diagramm
  364. ~@DDatenbank
  365. @HHauptmen
  366. on SelectUp
  367. begin
  368. Sternzeit 950525,22
  369. Oh, ja - ich m
  370. chte ganz
  371. dringend zur Sternenflotte!
  372. Und zwar nicht nur, weil
  373. ich die Uniformen so
  374. wahnsinnig schick finde
  375. und mich die
  376. uscheffekte dieses
  377. interaktiven Info-Spots
  378. so beeindruckt haben. -
  379. Nein, ich bin auch der
  380. tiefen 
  381. berzeugung,
  382. unglaublich gut f
  383. r die
  384. Sternenflotte geeignet zu
  385. sein und den Anforderungen
  386. der Akademie in jeder
  387. Hinsicht zu entsprechen.
  388. Ein anonymer Freund
  389.     Bewerbung
  390. @HHauptmen
  391. ~@sabsenden
  392. @NName neu
  393.     Bewerbung
  394. @iUFP-Logo
  395. Sounds/Senden.8SVX
  396. on SelectUp
  397. begin
  398. global Bewerbername
  399. put strlen Bewerbername into Laenge
  400. put 34 - Laenge into Fuellen
  401. put strrepeat (" ", Fuellen) into FuellString
  402. put "" into Mitteilung
  403. put "" into Auswahl
  404. global VorigeAuswahl
  405. put Random 8 into Auswahl
  406. while VorigeAuswahl = Auswahl
  407. put Auswahl into VorigeAuswahl
  408. if Bewerbername = "Ein anonymer Freund" then put "A" into Auswahl
  409. load text "\sAntwort" & Auswahl & ".ASC" into Mitteilung
  410. put "An:  " & Bewerbername & FuellString & "\n\n\n" before Mitteilung
  411. put "Von: Sternenflottenakademie            \n       Immatrikulationsb
  412. ro                \n" before Mitteilung
  413. put "Subraum-Nachricht   Sternzeit " & timestring (date, time, "%y%m%d,%H") & "\n\n" before Mitteilung
  414. play sound "Sounds/Pfeifen.8SVX"
  415. answer Mitteilung with "~@AAha"
  416. Bewerbername
  417. VorigeAuswahl
  418. Ein anonymer Freund
  419. \sAntwort
  420. An:  
  421. Von: Sternenflottenakademie            
  422.        Immatrikulationsb
  423. ro                
  424. Subraum-Nachricht   Sternzeit 
  425. %y%m%d,%H
  426. Sounds/Pfeifen.8SVX
  427. ~@AAha
  428. _on SelectUp
  429. begin
  430. global Bewerbername
  431. ask "Wie lautet Ihr Name?"
  432. if it is not empty
  433. put it into Bewerbername
  434. put "Ein anonymer Freund" into Bewerbername
  435. load text "\sBewerbung.ASC" into textfield "Bewerbung"
  436. put "Sternzeit " & timestring (date, time, "%y%m%d,%H") before textfield "Bewerbung"
  437. put Bewerbername after textfield "Bewerbung"
  438. Bewerbername
  439. Wie lautet Ihr Name?
  440. Ein anonymer Freund
  441. \sBewerbung.ASC
  442. Bewerbung
  443. Sternzeit 
  444. %y%m%d,%H
  445. Bewerbung
  446. Bewerbung
  447. on SelectUp
  448. begin
  449. bilder/UFP-Logo.IFF
  450. on SelectUp
  451. begin
  452. play sound "Sounds/Pfeifen.8SVX"
  453. put "Star-Trek-Info-Spot 2.0\n\n" into Mitteilung
  454. put "Programm:\n
  455.  Hartmut Schumacher\n\n\n" after Mitteilung
  456. put "Star-Trek-Bilder, -Sounds und -Namen:\n
  457.  Paramount Pictures"after Mitteilung
  458. answer Mitteilung with "~@OOK"
  459. Sounds/Pfeifen.8SVX
  460. Star-Trek-Info-Spot 2.0
  461. Programm:
  462.  Hartmut Schumacher
  463. Star-Trek-Bilder, -Sounds und -Namen:
  464.  Paramount Pictures
  465. ~@OOK
  466. Sounds/TNG-Thema.8SVX
  467. Sounds/TNG-Thema.8SVX
  468. on PageOpen
  469. begin
  470. put "" into textfield "Bewerbung"
  471. global Bewerbername
  472. if Bewerbername is empty begin
  473. ask "Wie lautet Ihr Name?"
  474. if it is not empty
  475. put it into Bewerbername
  476. put "Ein anonymer Freund" into Bewerbername
  477. load text "\sBewerbung.ASC" into textfield "Bewerbung"
  478. put "Sternzeit " & timestring (date, time, "%y%m%d,%H") before textfield "Bewerbung"
  479. put Bewerbername after textfield "Bewerbung"
  480. Bewerbername
  481. Bewerbung
  482. Wie lautet Ihr Name?
  483. Ein anonymer Freund
  484. \sBewerbung.ASC
  485. Bewerbung
  486. Sternzeit 
  487. %y%m%d,%H
  488. Bewerbung
  489. Bewerbung
  490. Holodeck
  491. Hintergrund
  492. Timer1
  493. Raumschiff2
  494. Raumschiff1
  495. ~@HHauptmen
  496. @AAnleitung
  497. bilder/Sterne.IFF
  498. on SelectUp
  499. begin
  500. set pencolor to 17
  501. put mousex into MausX
  502. put mousey into MausY
  503. fillellipse MausX, MausY, 5, 5
  504. play sound "\sLaser.8SVX" channel 0 channel 1
  505. set pencolor to 0
  506. fillellipse MausX, MausY, 5, 5
  507. \sLaser.8SVX
  508. on Timer
  509. begin
  510. if Random 2 > 1 then begin
  511. set visibility of imagefield "Raumschiff1" to false
  512. else begin
  513. lock display
  514. move imagefield "Raumschiff1" to random 250, random 150
  515. set visibility of imagefield "Raumschiff1" to true
  516. unlock display
  517. Raumschiff1
  518. Raumschiff1
  519. Raumschiff1
  520. on Timer
  521. begin
  522. if Random 2 > 1 then begin
  523. set visibility of imagefield "Raumschiff2" to false
  524. else begin
  525. lock display
  526. move imagefield "Raumschiff2" to random 250, random 150
  527. set visibility of imagefield "Raumschiff2" to true
  528. unlock display
  529. Raumschiff2
  530. Raumschiff2
  531. Raumschiff2
  532. on SelectDown
  533. begin
  534. ' drawbox 164, 236, 191, 245
  535. global Treffer2
  536. add 1 to Treffer2
  537. set pencolor 2
  538. fillbox 165, 237, 165 + Treffer2 * 5, 244
  539. If Treffer2 >= 5  begin
  540. play sound "\sExplosion.8SVX"
  541. load image "\sExplosion.IFF" into me
  542. load image "\sSchiff2.IFF" into me
  543. put 0 into Treffer2
  544. set visibility of imagefield "Raumschiff2" to false
  545. set pencolor 0
  546. fillbox 165, 237, 190, 244
  547. ?/    Treffer2
  548. \sExplosion.8SVX
  549. \sExplosion.IFF
  550. \sSchiff2.IFF
  551. Raumschiff2
  552. on SelectUp
  553. begin
  554. mon SelectDown
  555. begin
  556. global Treffer1
  557. add 1 to Treffer1
  558. set pencolor 3
  559. fillbox 115, 237, 115 + Treffer1 * 5, 244
  560. If Treffer1 >= 5  begin
  561. play sound "\sExplosion.8SVX"
  562. load image "\sExplosion.IFF" into me
  563. load image "\sSchiff1.IFF" into me
  564. put 0 into Treffer1
  565. set visibility of imagefield "Raumschiff1" to false
  566. set pencolor 0
  567. fillbox 115, 237, 140, 244
  568. ?/    Treffer1
  569. \sExplosion.8SVX
  570. \sExplosion.IFF
  571. \sSchiff1.IFF
  572. Raumschiff1
  573. on SelectUp
  574. begin
  575. play sound "Sounds/Holodeck.8SVX"
  576. put "Holodeck\n\n\n" into Mitteilung
  577. put "Xenophobe Raumkampfsimulation:\n\n" after Mitteilung
  578. put "Schie
  579. en Sie mit Ihrem\n" after Mitteilung
  580. put "Maus-Laser die feindlichen\n" after Mitteilung
  581. put "Raumschiffe ab,\n" after Mitteilung
  582. put "sobald sie sich enttarnen.\n\n" after Mitteilung
  583. put "Sie ben
  584. tigen f
  585. nf Treffer,\n" after Mitteilung
  586. put "um ein Schiff zu zerst
  587. ren.\n" after Mitteilung
  588. answer Mitteilung with "~@OOK"
  589. Sounds/Holodeck.8SVX
  590. Holodeck
  591. Xenophobe Raumkampfsimulation:
  592. Schie
  593. en Sie mit Ihrem
  594. Maus-Laser die feindlichen
  595. Raumschiffe ab,
  596. sobald sie sich enttarnen.
  597. Sie ben
  598. tigen f
  599. nf Treffer,
  600. um ein Schiff zu zerst
  601. ~@OOK
  602. Sounds/T
  603. r.IFF
  604. Sounds/Hintergrund.8SVX
  605. ;on PageOpen
  606. begin
  607. global Schiff1
  608. global Schiff2
  609. load image "Bilder/Schiff1.IFF" as Schiff1
  610. load image "Bilder/Schiff2.IFF" as Schiff2
  611. play sound "Sounds/Holodeck.8SVX" channel 0 channel 1
  612. set pencolor 17
  613. drawbox 114, 236, 141, 245
  614. set pencolor 17
  615. drawbox 164, 236, 191, 245
  616. put "Holodeck\n\n\n" into Mitteilung
  617. put "Xenophobe Raumkampfsimulation:\n\n" after Mitteilung
  618. put "Schie
  619. en Sie mit Ihrem\n" after Mitteilung
  620. put "Maus-Laser die feindlichen\n" after Mitteilung
  621. put "Raumschiffe ab,\n" after Mitteilung
  622. put "sobald sie sich enttarnen.\n\n" after Mitteilung
  623. put "Sie ben
  624. tigen f
  625. nf Treffer,\n" after Mitteilung
  626. put "um ein Schiff zu zerst
  627. ren.\n" after Mitteilung
  628. answer Mitteilung with "~@OOK"
  629. global Treffer1
  630. put 0 into Treffer1
  631. global Treffer2
  632. put 0 into Treffer2
  633. on PageClose
  634. begin
  635. stop all sound
  636. Schiff1
  637. Schiff2
  638. /    Treffer1
  639. /    Treffer2
  640. oBilder/Schiff1.IFF
  641. Bilder/Schiff2.IFF
  642. Sounds/Holodeck.8SVX
  643. Holodeck
  644. Xenophobe Raumkampfsimulation:
  645. Schie
  646. en Sie mit Ihrem
  647. Maus-Laser die feindlichen
  648. Raumschiffe ab,
  649. sobald sie sich enttarnen.
  650. Sie ben
  651. tigen f
  652. nf Treffer,
  653. um ein Schiff zu zerst
  654. ~@OOK
  655. Enterprise-Besatzung
  656. unter Captain Christopher
  657. Pike (vor Sternzeit 1312)
  658. Besatzung
  659. Enterprise 1701 unter
  660. Captain 
  661. James Kirk
  662. (ca. 1530) ... 
  663. einige Jahre sp
  664. (7412) ...
  665. ... und 
  666. #noch etwas sp
  667. (nach 48000)
  668. !Besatzung
  669. Enterprise 1701-D
  670.  unter
  671. Captain 
  672. Jean-Luc Picard
  673. (41153)
  674. (41153)
  675. Klingonen 
  676. (41503)
  677. Eine 
  678. 'Vulkanierin
  679. (ca. 3372)
  680. Picard als 
  681. Locutus
  682. Borg 
  683. (43989)
  684. Nexus 
  685. (nach 48000)
  686. $Treffen der Generationen
  687. (nach 48000)
  688. Besatzung
  689. der Raumstation
  690. &Deep Space Nine
  691. (46379)
  692. Major 
  693. Kira Nerys
  694. Deep Space Nine (46379)
  695. USS Voyager
  696.  unter
  697. Captain 
  698. %Kathryn Janeway
  699. (nach 48000)
  700. Katalog
  701.  des historischen
  702. Filmarchivs
  703. "Historische
  704. Zusammenfassung
  705. &Klicken Sie die roten Eintragungen an,
  706. &um ihre audiovisuelles Daten abzurufen
  707. Museum
  708. Museumstext
  709. ~@HHaupt-
  710. berschrift
  711. @iUFP-Logo
  712. Bilder/Vulkanierin.IFF
  713. Bilder/DS9.IFF
  714. Bilder/Janeway.IFF
  715. on SelectUp
  716. begin
  717. stop all sound
  718. if chipmemory > 230000 then begin
  719. play sound "Sounds/Generationen.8SVX" channel 2 channel 3
  720. play image "Bilder/Generationen.IFF" loops 0
  721. pSounds/Generationen.8SVX
  722. Bilder/Generationen.IFF
  723. Bilder/Besatzung_4.IFF
  724. Texte/Zusammenfassung.ASC
  725. Bilder/Besatzung_5.IFF
  726. Sounds/TOS-Thema-lang.8SVX
  727. Bilder/StarTrek-Logo.IFF
  728. Bilder/Enterprise-D.IFF
  729. Bilder/Besatzung_1.IFF
  730. Bilder/Besatzung_2.IFF
  731. Bilder/Besatzung_3.IFF
  732. Bilder/Besatzung_5.IFF
  733. Bilder/Besatzung_4.IFF
  734. Bilder/DS9.IFF
  735. Bilder/DS9-Besatzung.IFF
  736. Bilder/Voyager.IFF
  737. Bilder/Janeway.IFF
  738. Bilder/StarTrek-Logo.IFF
  739. Texte/Archiv.ASC
  740. Bilder/DS9-Besatzung.IFF
  741. Sounds/Picard9.8SVX
  742. Bilder/Picard_2.IFF
  743. on SelectUp
  744. begin
  745. Sounds/Kirk6.8SVX
  746. Bilder/Kirk_2.IFF
  747. on SelectUp
  748. begin
  749. Bilder/Kira.IFF
  750. Bilder/Kira.IFF
  751. Bilder/Nexus.IFF
  752. Sounds/Borg.8SVX
  753. Bilder/Borg.IFF
  754. Bilder/Klingonen.IFF
  755. Sounds/Q.8SVX
  756. Bilder/Q.IFF
  757. on SelectUp
  758. begin
  759. Sounds/Locutus.8SVX
  760. Bilder/Locutus.IFF
  761. on SelectUp
  762. begin
  763. Bilder/Voyager.IFF
  764. on SelectUp
  765. begin
  766. stop all sound
  767. if chipmemory > 200000 then begin
  768. play sound "Sounds/TNG-Thema_2.8SVX" channel 2 channel 3
  769. play image "Bilder/Enterprise-D.IFF" loops 0
  770. @Sounds/TNG-Thema_2.8SVX
  771. Bilder/Enterprise-D.IFF
  772. Bilder/Besatzung_5.IFF
  773. Bilder/Besatzung_3.IFF
  774. on SelectUp
  775. begin
  776. on SelectUp
  777. begin
  778. stop all sound
  779. if chipmemory > 200000 then begin
  780. play sound "Sounds/TOS-Endmusik.8SVX" channel 2 channel 3
  781. play image "Bilder/Besatzung_2.IFF" loops 0
  782. @Sounds/TOS-Endmusik.8SVX
  783. Bilder/Besatzung_2.IFF
  784. Bilder/Besatzung_1.IFF
  785. Bilder/UFP-Logo.IFF
  786. (on SelectUp
  787. begin
  788. stop all sound
  789. play sound "Sounds/Pfeifen.8SVX"
  790. put "Star-Trek-Info-Spot 2.0\n\n" into Mitteilung
  791. put "Programm:\n
  792.  Hartmut Schumacher\n\n\n" after Mitteilung
  793. put "Star-Trek-Bilder, -Sounds und -Namen:\n
  794.  Paramount Pictures"after Mitteilung
  795. answer Mitteilung with "~@OOK"
  796. Sounds/Pfeifen.8SVX
  797. Star-Trek-Info-Spot 2.0
  798. Programm:
  799.  Hartmut Schumacher
  800. Star-Trek-Bilder, -Sounds und -Namen:
  801.  Paramount Pictures
  802. ~@OOK
  803. )on PageClose
  804. begin
  805. stop all sound
  806. Sounds und -Namen:
  807.  Paramount Pictures
  808. ~@OOK
  809. )on PageClose
  810. begin
  811. stop all sound
  812. McCoy
  813. Portrait
  814. chste Akte
  815. @HHauptmen
  816. @vvorige Akte
  817. @SStimmprobe
  818. Personalakte
  819. Portrait
  820. Portrait
  821. Portrait
  822. Portrait
  823. Portrait
  824. )Helm:Star-Trek-Dateien/Bilder/Picard.IFF
  825. on SelectUp
  826. begin
  827. global VorigeAuswahl
  828. put Random 1 into Auswahl
  829. while VorigeAuswahl = Auswahl
  830. put Auswahl into VorigeAuswahl
  831. play sound "Sounds/McCoy" & Auswahl & ".8SVX"
  832. VorigeAuswahl
  833. Sounds/McCoy
  834. .8SVX
  835. Texte/McCoy.ASC
  836. )Helm:Star-Trek-Dateien/Bilder/Picard.IFF
  837. )Helm:Star-Trek-Dateien/Bilder/Picard.IFF
  838. (Helm:Star-Trek-Dateien/Bilder/McCoy.IFF
  839. (Helm:Star-Trek-Dateien/Bilder/McCoy.IFF
  840. Bilder/McCoy.IFF
  841. on SelectUp
  842. begin
  843. (on PageClose
  844. begin
  845. stop all sound
  846. Uhura
  847. Portrait
  848. chste Akte
  849. @HHauptmen
  850. @vvorige Akte
  851. @SStimmprobe
  852. Personalakte
  853. Portrait
  854. Portrait
  855. Portrait
  856. Portrait
  857. Portrait
  858. )Helm:Star-Trek-Dateien/Bilder/Picard.IFF
  859. Texte/Uhura.ASC
  860. )Helm:Star-Trek-Dateien/Bilder/Picard.IFF
  861. )Helm:Star-Trek-Dateien/Bilder/Picard.IFF
  862. (Helm:Star-Trek-Dateien/Bilder/McCoy.IFF
  863. (Helm:Star-Trek-Dateien/Bilder/McCoy.IFF
  864. (Helm:Star-Trek-Dateien/Bilder/McCoy.IFF
  865. Bilder/Uhura.IFF
  866. Sounds/Beamen.8SVX
  867. (on PageClose
  868. begin
  869. stop all sound
  870. Portrait
  871. chste Akte
  872. @HHauptmen
  873. @vvorige Akte
  874. @SStimmprobe
  875. Personalakte
  876. Portrait
  877. Portrait
  878. Portrait
  879. Portrait
  880. Portrait
  881. )Helm:Star-Trek-Dateien/Bilder/Picard.IFF
  882. on SelectUp
  883. begin
  884. global VorigeAuswahl
  885. put Random 1 into Auswahl
  886. while VorigeAuswahl = Auswahl
  887. put Auswahl into VorigeAuswahl
  888. play sound "Sounds/Troi" & Auswahl & ".8SVX"
  889. VorigeAuswahl
  890. Sounds/Troi
  891. .8SVX
  892. Texte/Troi.ASC
  893. )Helm:Star-Trek-Dateien/Bilder/Picard.IFF
  894. )Helm:Star-Trek-Dateien/Bilder/Picard.IFF
  895. (Helm:Star-Trek-Dateien/Bilder/McCoy.IFF
  896. (Helm:Star-Trek-Dateien/Bilder/McCoy.IFF
  897. (Helm:Star-Trek-Dateien/Bilder/McCoy.IFF
  898. (Helm:Star-Trek-Dateien/Bilder/Uhura.IFF
  899. Bilder/Troi.IFF
  900. Sounds/Beamen.8SVX
  901. (on PageClose
  902. begin
  903. stop all sound
  904. Portrait
  905. chste Akte
  906. ~@HHauptmen
  907. @vvorige Akte
  908. @SStimmprobe
  909. Personalakte
  910. Portrait
  911. Portrait
  912. Portrait
  913. Portrait
  914. Portrait
  915. )Helm:Star-Trek-Dateien/Bilder/Picard.IFF
  916. Texte/Worf.ASC
  917. )Helm:Star-Trek-Dateien/Bilder/Picard.IFF
  918. )Helm:Star-Trek-Dateien/Bilder/Picard.IFF
  919. (Helm:Star-Trek-Dateien/Bilder/McCoy.IFF
  920. (Helm:Star-Trek-Dateien/Bilder/McCoy.IFF
  921. (Helm:Star-Trek-Dateien/Bilder/McCoy.IFF
  922. (Helm:Star-Trek-Dateien/Bilder/Uhura.IFF
  923. Bilder/Troi.IFF
  924. Bilder/Worf.IFF
  925. Sounds/Beamen.8SVX
  926. (on PageClose
  927. begin
  928. stop all sound
  929. Portrait
  930. chste Akte
  931. @HHauptmen
  932. @vvorige Akte
  933. @SStimmprobe
  934. Personalakte
  935. )Helm:Star-Trek-Dateien/Bilder/Picard.IFF
  936. on SelectUp
  937. begin
  938. global VorigeAuswahl
  939. put Random 2 into Auswahl
  940. while VorigeAuswahl = Auswahl
  941. put Auswahl into VorigeAuswahl
  942. play sound "Sounds/Data" & Auswahl & ".8SVX"
  943. VorigeAuswahl
  944. Sounds/Data
  945. .8SVX
  946. Texte/Data.ASC
  947. Bilder/Data.IFF
  948. Sounds/Beamen.8SVX
  949. (on PageClose
  950. begin
  951. stop all sound
  952. ILBMBMHD
  953. PPP@P`
  954. 000GRAB
  955. (CRNG
  956. 4FORM
  957.  ILBMBMHD
  958. @P`Pppp
  959. !CRNG
  960. Herzlichen Gl
  961. ckwunsch!                
  962. Wir freuen uns, Ihnen mitteilen zu     
  963. rfen, da
  964.  Ihre Bewerbung akzeptiert  
  965. wurde.                                 
  966. Um letzte Formalit
  967. ten zu erledigen,   
  968. ist es n
  969. tig, da
  970.  Sie sich bis         
  971. testens morgen um 12.00 Uhr         
  972. Ortszeit pers
  973. nlich im                 
  974. Immatrikulationsb
  975. ro der Sternenflotte 
  976. (San Francisco) melden.                
  977. NHerzlichen Gl
  978. ckwunsch!                
  979. Wir freuen uns, Ihnen mitteilen zu     
  980. rfen, da
  981.  Ihre Bewerbung akzeptiert  
  982. wurde.                                 
  983. Leider gibt es momentan mehr geeignete 
  984. Bewerber als Studienpl
  985. tze.            
  986. Sie k
  987. nnen Ihr Studium daher fr
  988. hestens
  989. im Sommersemester 2051 aufnehmen.      TEXT
  990. Herzlichen Gl
  991. ckwunsch!                
  992. Wir freuen uns, Ihnen mitteilen zu     
  993. rfen, da
  994.  Ihre Bewerbung akzeptiert  
  995. wurde.                                 
  996. Da im Wohnheim jedoch starker          
  997. Platzmangel herrscht, m
  998. ten Sie sich  
  999. dazu bereiterkl
  1000. ren, Ihr Zimmer mit    
  1001. einem anderen Studenten zu teilen.     
  1002. Folgender Kommilitone wurde Ihnen per  
  1003. Zufallsauswahl als Zimmergenosse       
  1004. zugewiesen: Wesley Chrusher            TEXT
  1005. Herzlichen Gl
  1006. ckwunsch!                
  1007. Wir freuen uns, Ihnen mitteilen zu     
  1008. rfen, da
  1009.  Ihre Bewerbung akzeptiert  
  1010. wurde.                                 
  1011. Da im Wohnheim jedoch starker          
  1012. Platzmangel herrscht, m
  1013. ten Sie sich  
  1014. dazu bereiterkl
  1015. ren, Ihr Zimmer mit    
  1016. einem anderen Studenten zu teilen.     
  1017. Folgender Kommilitone wurde Ihnen per  
  1018. Zufallsauswahl als Zimmergenosse       
  1019. zugewiesen: James Kirk jr.             TEXT
  1020. Herzlichen Gl
  1021. ckwunsch!                
  1022. Wir freuen uns, Ihnen mitteilen zu     
  1023. rfen, da
  1024.  Ihre Bewerbung akzeptiert  
  1025. wurde.                                 
  1026. Da im Wohnheim jedoch starker          
  1027. Platzmangel herrscht, m
  1028. ten Sie sich  
  1029. dazu bereiterkl
  1030. ren, Ihr Zimmer mit    
  1031. einem anderen Studenten zu teilen.     
  1032. Folgender Kommilitone wurde Ihnen per  
  1033. Zufallsauswahl als Zimmergenosse       
  1034. zugewiesen: Samantha Troi.             TEXT
  1035. Herzlichen Gl
  1036. ckwunsch!                
  1037. Wir freuen uns, Ihnen mitteilen zu     
  1038. rfen, da
  1039.  Ihre Bewerbung akzeptiert  
  1040. wurde.                                 
  1041. Da im Wohnheim jedoch starker          
  1042. Platzmangel herrscht, m
  1043. ten Sie sich  
  1044. dazu bereiterkl
  1045. ren, Ihr Zimmer mit    
  1046. einem anderen Studenten zu teilen.     
  1047. Folgender Kommilitone wurde Ihnen per  
  1048. Zufallsauswahl als Zimmergenosse       
  1049. zugewiesen: Matlakala Uhura.           TEXT
  1050. Herzlichen Gl
  1051. ckwunsch!                
  1052. Wir freuen uns, Ihnen mitteilen zu     
  1053. rfen, da
  1054.  Ihre Bewerbung in die      
  1055. engere Auswahl gelangt ist.            
  1056. In sechs Monaten werden Sie Gelegenheit
  1057. haben, an einem Test teilzunehmen,     
  1058. dessen Ergebnis 
  1059. ber Ihr Aufnahme an   
  1060. der Sternenflottenakademie entscheidet.
  1061. Wir empfehlen Ihnen daher, die         
  1062. historischen Filmberichte 
  1063. ber         
  1064. Erlebnisse von Angeh
  1065. rigen der         
  1066. Sternenflotte aufmerksam zu verfolgen. TEXT
  1067. [Anonyme Bewerbungen k
  1068. nnen wir         
  1069. nicht ber
  1070. cksichtigen.                 
  1071. Oh, ja - ich m
  1072. chte ganz
  1073. dringend zur Sternenflotte!
  1074. Und zwar nicht nur, weil
  1075. ich die Uniformen so
  1076. wahnsinnig schick finde
  1077. und mich die
  1078. uscheffekte dieses
  1079. interaktiven Info-Spots
  1080. so beeindruckt haben. -
  1081. Nein, ich bin auch der
  1082. tiefen 
  1083. berzeugung,
  1084. unglaublich gut f
  1085. r die
  1086. Sternenflotte geeignet zu
  1087. sein und den Anforderungen
  1088. der Akademie in jeder
  1089. Hinsicht zu entsprechen.
  1090. sDie erste 
  1091. Enterprise
  1092. Mannschaft
  1093. Die zweite Mannschaft
  1094. Deep Space Nine
  1095. Voyager
  1096. Der Nexus
  1097. sDSdsaD
  1098. CSternenflotten-Info-Spot:
  1099. Die Akademie sucht Nachwuchs!
  1100. Herzlichen Gl
  1101. ckwunsch!                
  1102. Wir freuen uns, Ihnen mitteilen zu     
  1103. rfen, da
  1104.  Ihre Bewerbung akzeptiert  
  1105. wurde.                                 
  1106. Da im Wohnheim jedoch starker          
  1107. Platzmangel herrscht, m
  1108. ten Sie sich  
  1109. dazu bereiterkl
  1110. ren, Ihr Zimmer mit    
  1111. einem anderen Studenten zu teilen.     
  1112. Folgender Kommilitone wurde Ihnen per  
  1113. Zufallsauswahl als Zimmergenosse       
  1114. zugewiesen: Kira Nusi.                 PICT
  1115. @FORM
  1116. ,ILBMBMHD
  1117. DDDUUUfffwww
  1118. www33fUUUDDDf33ff3333
  1119. fUDU33D3
  1120. wD33Uw""U3
  1121. ffU""""""333333DDDUDDfUDfUUffffff
  1122. UUUUGRAB
  1123. !CAMG
  1124. Um Ihre Bewerbung bearbeiten zu k
  1125. nnen,
  1126. fehlen uns noch einige Unterlagen:     
  1127. Bitte schicken Sie uns so schnell wie  
  1128. glich Nachweise 
  1129. ber grundlegende    
  1130. Kenntnisse der vulkanischen und der    
  1131. klingonischen Sprache zu.              SOND
  1132. xFORM
  1133. d8SVXVHDR
  1134. Laser.8SVX
  1135. AudioMasterIV
  1136. :FORM
  1137. &8SVXVHDR
  1138. Treffer.8SVX
  1139. AudioMasterIV
  1140. 5L.I.
  1141. !TJ#GS*
  1142. (pedK
  1143. 56 6(
  1144. !+EcC-%
  1145. +V<6"
  1146. '%?4@'
  1147. %FOA    
  1148. "/52C
  1149. 3fB*3
  1150. KNKP5,
  1151. 2*DRC
  1152. LD6H?
  1153.  5/DO
  1154. 0aX_k@
  1155. <KKS:(4
  1156. M`B7YD
  1157. 2VeS&
  1158. @H]E6D
  1159. 1& **
  1160. '='/?6
  1161. 0IKD4
  1162. /SL5    
  1163. 2?GEI)
  1164. AWU62#
  1165. X~ycQ
  1166. 97&:Ehk5
  1167. 2T=I,
  1168. +GF<LBJ8
  1169. =?ADROPG
  1170. &IC<,
  1171. WxtU5
  1172.  RhY,
  1173. 'P[>#
  1174. %Kjb0
  1175. ,"!<2
  1176. +L;/G+
  1177. 1Qfd?3
  1178. @OMV'
  1179. %bsy]
  1180. *=K_J    
  1181. 9SYUF(
  1182.  ]c/"
  1183. D=NX#
  1184. <ShsW8
  1185. \pO\L
  1186. 9BFGB!
  1187. .8?MB2
  1188. )#72*2(
  1189. #?ON.-9
  1190. )m|P%
  1191. 7VPZ&
  1192. 7?/?/
  1193. /\dV%
  1194. 'JTjb'
  1195. .DUU5
  1196. ?@8NS(
  1197. -ZP08$$HRI8
  1198. %4CUE
  1199. 8SVXVHDR
  1200. Explosion.8SVX
  1201. AudioMasterIV
  1202. 2hJ=^}g2
  1203. ~}~|Q
  1204. 3E@Lv
  1205. d.8j~'
  1206. vM%E.
  1207. #Z|u@
  1208. Nu[N8
  1209. ?cyn    
  1210. |df}_
  1211. .Fip=
  1212. #J^F?gtB
  1213. Bb|~e
  1214. 2!"HQ
  1215. 5BMj]
  1216. ,' 7#
  1217. ,[`ivwg;
  1218. LZSQB
  1219. 9cwzvS
  1220. f~{eQ%
  1221. /ER]o]
  1222. :C:58(
  1223. BowtR
  1224. Q||h?
  1225. N]qs?
  1226. (OPX=
  1227. /150&
  1228. *[owxP
  1229. EugTr
  1230. 9WT^vd
  1231. '#$8(
  1232. 6+    9tW
  1233. Rfsr9
  1234. -[~|X
  1235. .ewr_
  1236. BC33&
  1237. @|uWF2
  1238. (7DW0
  1239. 7,/4,+)/RX%
  1240. Bx}YF/
  1241. /H92vz5
  1242. PnC>5
  1243. 0G;V9
  1244. 2~{^al.
  1245. [bPI;8U:
  1246. >SgyF
  1247. K;XtB
  1248. &zs,(FMfo4
  1249. -D>IiH
  1250. 0mndlW
  1251. 2^sq3
  1252. ?t{^'
  1253. E^YP9
  1254. T}c2%0$
  1255. _~t4 RS
  1256. i""UG
  1257. :>CZpR
  1258. ad?./
  1259. /SaXM>5+2
  1260. As]NSf|
  1261. cqV`|
  1262. Q[[WS^_
  1263. 1&Fu`(
  1264. z`=Hj|
  1265. Wo_EW~
  1266. wr}n'
  1267. @QP8    
  1268. M~s-NW
  1269. ",6KbjeJ"
  1270. 9=2NR
  1271. S98!    
  1272. ~~~qV;,#
  1273. |t|zS
  1274. 4_jgH
  1275. 4F=0%
  1276. "3SmZ!
  1277. #;<Sqg5
  1278. <msL7JivoE
  1279. ;?CVpcb}
  1280. 3YXg~~~~~~n"
  1281. f}}xF
  1282. .g|o(
  1283. [k^O.
  1284. ?`]D 
  1285. Tzxksz{{{<
  1286. J`WI2
  1287. )lyyR
  1288. %7B5#
  1289. NusK"
  1290. 6PG=1
  1291. DN@@8<kuN
  1292. ;aUO1
  1293. mtttW
  1294. 1isk>
  1295. :FDFC-
  1296. bqqh+
  1297.     .9<^pppn.
  1298. ?QPQH9-'
  1299. Wnnnna(
  1300. 'AE66F;
  1301. Hjlh[ZV'
  1302. 8ikkV
  1303. OgaJ.
  1304. "&"-A0
  1305. Mghhb>,5;-
  1306. ,J`eeedI
  1307. .+$#.:OaV76OU)
  1308. )Taaa`aa_OD3
  1309. $9GH1    
  1310. 47.4IY_L
  1311. 7W^]]]J&
  1312. 'S\Z7
  1313. 5>IZ[9
  1314. OZZZK(
  1315. *912NXXB
  1316. 7WWWW?
  1317. 6TV;%2*
  1318. @STI 
  1319. $=PRRR3
  1320. 'CA28OD16M:
  1321. GNAEH3!1MON'
  1322. /?B@<-
  1323. ,<ILLLLLL1
  1324. 0IKKKIHB/
  1325. 4EH:378++98;7*
  1326. 093,*0>D9
  1327. 3CA69BC2
  1328.     *?@2
  1329. &!4@8
  1330. +:;;;8
  1331. *::99:8
  1332. +211111+
  1333. +-))*
  1334. !,,,'"&'
  1335.  (% $*
  1336. "&#"#
  1337. Spock
  1338. Portrait
  1339. chste Akte
  1340. @HHauptmen
  1341. @vvorige Akte
  1342. @SStimmprobe
  1343. Personalakte
  1344. @eSeiten
  1345. Bilder/Spock.IFF
  1346. on SelectUp
  1347. begin
  1348. on SelectUp
  1349. begin
  1350. global VorigeAuswahl
  1351. put Random 1 into Auswahl
  1352. while VorigeAuswahl = Auswahl
  1353. put Auswahl into VorigeAuswahl
  1354. play sound "Sounds/Spock" & Auswahl & ".8SVX"
  1355. VorigeAuswahl
  1356. Sounds/Spock
  1357. .8SVX
  1358. Texte/Spock.ASC
  1359. on SelectUp
  1360. begin
  1361. Sounds/Beamen.8SVX
  1362. (on PageClose
  1363. begin
  1364. stop all sound
  1365. Portrait
  1366. chste Akte
  1367. @HHauptmen
  1368. @vvorige Akte
  1369. @SStimmprobe
  1370. Personalakte
  1371. @DDiagramm
  1372. Bilder/Kirk.IFF
  1373. on SelectUp
  1374. begin
  1375. global VorigeAuswahl
  1376. put Random 4 into Auswahl
  1377. while VorigeAuswahl = Auswahl
  1378. put Auswahl into VorigeAuswahl
  1379. play sound "Sounds/Kirk" & Auswahl & ".8SVX"
  1380. VorigeAuswahl
  1381. Sounds/Kirk
  1382. .8SVX
  1383. Texte/Kirk.ASC
  1384. Sounds/Beamen.8SVX
  1385. (on PageClose
  1386. begin
  1387. stop all sound
  1388. Sounds/Beamen.8SVX
  1389. (on PageClose
  1390. begin
  1391. stop all sound
  1392. Spock
  1393. Portrait
  1394. chste Akte
  1395. @HHauptmen
  1396. @vvorige Akte
  1397. @SStimmprobe
  1398. Personalakte
  1399. Bilder/Spock.IFF
  1400. on SelectUp
  1401. begin
  1402. on SelectUp
  1403. begin
  1404. global VorigeAuswahl
  1405. put Random 1 into Auswahl
  1406. while VorigeAuswahl = Auswahl
  1407. put Auswahl into VorigeAuswahl
  1408. play sound "Sounds/Spock" & Auswahl & ".8SVX"
  1409. VorigeAuswahl
  1410. Sounds/Spock
  1411. .8SVX
  1412. Texte/Spock.ASC
  1413. Sounds/Beamen.8SVX
  1414. (on PageClose
  1415. begin
  1416. stop all sound
  1417. Sounds/Beamen.8SVX
  1418. (on PageClose
  1419. begin
  1420. stop all sound
  1421. Sounds/Beamen.8SVX
  1422. (on PageClose
  1423. begin
  1424. stop all sound
  1425. Uhura
  1426. Portrait
  1427. chste Akte
  1428. @HHauptmen
  1429. @vvorige Akte
  1430. @SStimmprobe
  1431. Personalakte
  1432. Portrait
  1433. Portrait
  1434. Portrait
  1435. Portrait
  1436. Portrait
  1437. @eSeiten
  1438. )Helm:Star-Trek-Dateien/Bilder/Picard.IFF
  1439. Texte/Uhura.ASC
  1440. )Helm:Star-Trek-Dateien/Bilder/Picard.IFF
  1441. )Helm:Star-Trek-Dateien/Bilder/Picard.IFF
  1442. (Helm:Star-Trek-Dateien/Bilder/McCoy.IFF
  1443. (Helm:Star-Trek-Dateien/Bilder/McCoy.IFF
  1444. (Helm:Star-Trek-Dateien/Bilder/McCoy.IFF
  1445. Bilder/Uhura.IFF
  1446. on SelectUp
  1447. begin
  1448. Sounds/Beamen.8SVX
  1449. (on PageClose
  1450. begin
  1451. stop all sound
  1452. Sternzeit 950525,22
  1453. Oh, ja - ich m
  1454. chte ganz
  1455. dringend zur Sternenflotte!
  1456. Und zwar nicht nur, weil
  1457. ich die Uniformen so
  1458. wahnsinnig schick finde
  1459. und mich die
  1460. uscheffekte dieses
  1461. interaktiven Info-Spots
  1462. so beeindruckt haben. -
  1463. Nein, ich bin auch der
  1464. tiefen 
  1465. berzeugung,
  1466. unglaublich gut f
  1467. r die
  1468. Sternenflotte geeignet zu
  1469. sein und den Anforderungen
  1470. der Akademie in jeder
  1471. Hinsicht zu entsprechen.
  1472. Ein anonymer Freund
  1473.     Bewerbung
  1474. @HHauptmen
  1475. ~@sabsenden
  1476. @NName neu
  1477.     Bewerbung
  1478. @iUFP-Logo
  1479. Sounds/Senden.8SVX
  1480. on SelectUp
  1481. begin
  1482. global Bewerbername
  1483. put strlen Bewerbername into Laenge
  1484. put 34 - Laenge into Fuellen
  1485. put strrepeat (" ", Fuellen) into FuellString
  1486. put "" into Mitteilung
  1487. put "" into Auswahl
  1488. global VorigeAuswahl
  1489. put Random 8 into Auswahl
  1490. while VorigeAuswahl = Auswahl
  1491. put Auswahl into VorigeAuswahl
  1492. if Bewerbername = "Ein anonymer Freund" then put "A" into Auswahl
  1493. load text "\sAntwort" & Auswahl & ".ASC" into Mitteilung
  1494. put "An:  " & Bewerbername & FuellString & "\n\n\n" before Mitteilung
  1495. put "Von: Sternenflottenakademie            \n       Immatrikulationsb
  1496. ro                \n" before Mitteilung
  1497. put "Subraum-Nachricht   Sternzeit " & timestring (date, time, "%y%m%d,%H") & "\n\n" before Mitteilung
  1498. play sound "Sounds/Pfeifen.8SVX"
  1499. answer Mitteilung with "~@AAha"
  1500. Bewerbername
  1501. VorigeAuswahl
  1502. Ein anonymer Freund
  1503. \sAntwort
  1504. An:  
  1505. Von: Sternenflottenakademie            
  1506.        Immatrikulationsb
  1507. ro                
  1508. Subraum-Nachricht   Sternzeit 
  1509. %y%m%d,%H
  1510. Sounds/Pfeifen.8SVX
  1511. ~@AAha
  1512. _on SelectUp
  1513. begin
  1514. global Bewerbername
  1515. ask "Wie lautet Ihr Name?"
  1516. if it is not empty
  1517. put it into Bewerbername
  1518. put "Ein anonymer Freund" into Bewerbername
  1519. load text "\sBewerbung.ASC" into textfield "Bewerbung"
  1520. put "Sternzeit " & timestring (date, time, "%y%m%d,%H") before textfield "Bewerbung"
  1521. put Bewerbername after textfield "Bewerbung"
  1522. Bewerbername
  1523. Wie lautet Ihr Name?
  1524. Ein anonymer Freund
  1525. \sBewerbung.ASC
  1526. Bewerbung
  1527. Sternzeit 
  1528. %y%m%d,%H
  1529. Bewerbung
  1530. Bewerbung
  1531. on SelectUp
  1532. begin
  1533. bilder/UFP-Logo.IFF
  1534. on SelectUp
  1535. begin
  1536. play sound "Sounds/Pfeifen.8SVX"
  1537. put "Star-Trek-Info-Spot 2.0\n\n" into Mitteilung
  1538. put "Programm:\n
  1539.  Hartmut Schumacher\n\n\n" after Mitteilung
  1540. put "Star-Trek-Bilder, -Sounds und -Namen:\n
  1541.  Paramount Pictures"after Mitteilung
  1542. answer Mitteilung with "~@OOK"
  1543. Sounds/Pfeifen.8SVX
  1544. Star-Trek-Info-Spot 2.0
  1545. Programm:
  1546.  Hartmut Schumacher
  1547. Star-Trek-Bilder, -Sounds und -Namen:
  1548.  Paramount Pictures
  1549. ~@OOK
  1550. Sounds/TNG-Thema.8SVX
  1551. Sounds/TNG-Thema.8SVX
  1552. on PageOpen
  1553. begin
  1554. put "" into textfield "Bewerbung"
  1555. global Bewerbername
  1556. if Bewerbername is empty begin
  1557. ask "Wie lautet Ihr Name?"
  1558. if it is not empty
  1559. put it into Bewerbername
  1560. put "Ein anonymer Freund" into Bewerbername
  1561. load text "\sBewerbung.ASC" into textfield "Bewerbung"
  1562. put "Sternzeit " & timestring (date, time, "%y%m%d,%H") before textfield "Bewerbung"
  1563. put Bewerbername after textfield "Bewerbung"
  1564. Bewerbername
  1565. Bewerbung
  1566. Wie lautet Ihr Name?
  1567. Ein anonymer Freund
  1568. \sBewerbung.ASC
  1569. Bewerbung
  1570. Sternzeit 
  1571. %y%m%d,%H
  1572. Bewerbung
  1573. Bewerbung
  1574. Holodeck
  1575. Hintergrund
  1576. Timer1
  1577. Raumschiff2
  1578. Raumschiff1
  1579. ~@HHauptmen
  1580. @AAnleitung
  1581. bilder/Sterne.IFF
  1582. on SelectUp
  1583. begin
  1584. set pencolor to 17
  1585. put mousex into MausX
  1586. put mousey into MausY
  1587. fillellipse MausX, MausY, 5, 5
  1588. play sound "\sLaser.8SVX" channel 0 channel 1
  1589. set pencolor to 0
  1590. fillellipse MausX, MausY, 5, 5
  1591. \sLaser.8SVX
  1592. on Timer
  1593. begin
  1594. if Random 2 > 1 then begin
  1595. set visibility of imagefield "Raumschiff1" to false
  1596. else begin
  1597. lock display
  1598. move imagefield "Raumschiff1" to random 250, random 150
  1599. set visibility of imagefield "Raumschiff1" to true
  1600. unlock display
  1601. Raumschiff1
  1602. Raumschiff1
  1603. Raumschiff1
  1604. on Timer
  1605. begin
  1606. if Random 2 > 1 then begin
  1607. set visibility of imagefield "Raumschiff2" to false
  1608. else begin
  1609. lock display
  1610. move imagefield "Raumschiff2" to random 250, random 150
  1611. set visibility of imagefield "Raumschiff2" to true
  1612. unlock display
  1613. Raumschiff2
  1614. Raumschiff2
  1615. Raumschiff2
  1616. on SelectDown
  1617. begin
  1618. ' drawbox 164, 236, 191, 245
  1619. global Treffer2
  1620. add 1 to Treffer2
  1621. set pencolor 2
  1622. fillbox 165, 237, 165 + Treffer2 * 5, 244
  1623. If Treffer2 >= 5  begin
  1624. play sound "\sExplosion.8SVX"
  1625. load image "\sExplosion.IFF" into me
  1626. load image "\sSchiff2.IFF" into me
  1627. put 0 into Treffer2
  1628. set visibility of imagefield "Raumschiff2" to false
  1629. set pencolor 0
  1630. fillbox 165, 237, 190, 244
  1631. ?/    Treffer2
  1632. \sExplosion.8SVX
  1633. \sExplosion.IFF
  1634. \sSchiff2.IFF
  1635. Raumschiff2
  1636. on SelectUp
  1637. begin
  1638. mon SelectDown
  1639. begin
  1640. global Treffer1
  1641. add 1 to Treffer1
  1642. set pencolor 3
  1643. fillbox 115, 237, 115 + Treffer1 * 5, 244
  1644. If Treffer1 >= 5  begin
  1645. play sound "\sExplosion.8SVX"
  1646. load image "\sExplosion.IFF" into me
  1647. load image "\sSchiff1.IFF" into me
  1648. put 0 into Treffer1
  1649. set visibility of imagefield "Raumschiff1" to false
  1650. set pencolor 0
  1651. fillbox 115, 237, 140, 244
  1652. ?/    Treffer1
  1653. \sExplosion.8SVX
  1654. \sExplosion.IFF
  1655. \sSchiff1.IFF
  1656. Raumschiff1
  1657. on SelectUp
  1658. begin
  1659. play sound "Sounds/Holodeck.8SVX"
  1660. put "Holodeck\n\n\n" into Mitteilung
  1661. put "Xenophobe Raumkampfsimulation:\n\n" after Mitteilung
  1662. put "Schie
  1663. en Sie mit Ihrem\n" after Mitteilung
  1664. put "Maus-Laser die feindlichen\n" after Mitteilung
  1665. put "Raumschiffe ab,\n" after Mitteilung
  1666. put "sobald sie sich enttarnen.\n\n" after Mitteilung
  1667. put "Sie ben
  1668. tigen f
  1669. nf Treffer,\n" after Mitteilung
  1670. put "um ein Schiff zu zerst
  1671. ren.\n" after Mitteilung
  1672. answer Mitteilung with "~@OOK"
  1673. Sounds/Holodeck.8SVX
  1674. Holodeck
  1675. Xenophobe Raumkampfsimulation:
  1676. Schie
  1677. en Sie mit Ihrem
  1678. Maus-Laser die feindlichen
  1679. Raumschiffe ab,
  1680. sobald sie sich enttarnen.
  1681. Sie ben
  1682. tigen f
  1683. nf Treffer,
  1684. um ein Schiff zu zerst
  1685. ~@OOK
  1686. Sounds/T
  1687. r.IFF
  1688. Sounds/Hintergrund.8SVX
  1689. ;on PageOpen
  1690. begin
  1691. global Schiff1
  1692. global Schiff2
  1693. load image "Bilder/Schiff1.IFF" as Schiff1
  1694. load image "Bilder/Schiff2.IFF" as Schiff2
  1695. play sound "Sounds/Holodeck.8SVX" channel 0 channel 1
  1696. set pencolor 17
  1697. drawbox 114, 236, 141, 245
  1698. set pencolor 17
  1699. drawbox 164, 236, 191, 245
  1700. put "Holodeck\n\n\n" into Mitteilung
  1701. put "Xenophobe Raumkampfsimulation:\n\n" after Mitteilung
  1702. put "Schie
  1703. en Sie mit Ihrem\n" after Mitteilung
  1704. put "Maus-Laser die feindlichen\n" after Mitteilung
  1705. put "Raumschiffe ab,\n" after Mitteilung
  1706. put "sobald sie sich enttarnen.\n\n" after Mitteilung
  1707. put "Sie ben
  1708. tigen f
  1709. nf Treffer,\n" after Mitteilung
  1710. put "um ein Schiff zu zerst
  1711. ren.\n" after Mitteilung
  1712. answer Mitteilung with "~@OOK"
  1713. global Treffer1
  1714. put 0 into Treffer1
  1715. global Treffer2
  1716. put 0 into Treffer2
  1717. on PageClose
  1718. begin
  1719. stop all sound
  1720. Schiff1
  1721. Schiff2
  1722. /    Treffer1
  1723. /    Treffer2
  1724. oBilder/Schiff1.IFF
  1725. Bilder/Schiff2.IFF
  1726. Sounds/Holodeck.8SVX
  1727. Holodeck
  1728. Xenophobe Raumkampfsimulation:
  1729. Schie
  1730. en Sie mit Ihrem
  1731. Maus-Laser die feindlichen
  1732. Raumschiffe ab,
  1733. sobald sie sich enttarnen.
  1734. Sie ben
  1735. tigen f
  1736. nf Treffer,
  1737. um ein Schiff zu zerst
  1738. ~@OOK
  1739. Bilder/Sterne.IFF
  1740. Sounds/Explosion.8SVX
  1741. -dh6:helm/Star-Trek-Dateien/Texte/Antwort0.ASC
  1742. fonts:Book23
  1743. &Helm:Star-Trek-Dateien/Bilder/Kirk.IFF
  1744. *Helm:Star-Trek-Dateien/Texte/Bewerbung.ASC
  1745. SyQuest14:Star-Trek-Info-Spot/
  1746. 3Helm:Star-Trek-Dateien/Bilder/Klingonen-Schiff1.IFF
  1747. +dh6:helm/Star-Trek-Dateien/Texte/Museum.ASC
  1748. 0dh6:Helm/AlteDateien/Star-Trek-Info-Spot-1mMen
  1749.